home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
msgtst.s
< prev
next >
Wrap
Text File
|
1991-11-23
|
3KB
|
94 lines
*****************************************************************************
* Modulname: Message Test
* Modultype: Library
* Dest.Comp.: HP48
* Language: System RPL
* Author: Detlef Mueller, Nibelungenweg 6, 2000 Hamburg 56, W-Germany
* Interface: MSG1, MSG2, MSG3
* Description: Test library message handling
* Edition History :
* 0.000 08-25-1991 DM Alpha version
*****************************************************************************
TITLE Message Test
xROMID 329
ASSEMBLE
MTROMID EQU #329
DOMSG MACRO * romid,msgnr ** Macro, to handle msg nr. generation **
CON(5) =DOBINT
CON(5) ($1)*256+($2) * (ROMID << 8) | msgnr *
DOMSG ENDM
NIBASC /HPHP48-E/ ** Binary download header **
RPL
EXTERNAL xMSG1 ** External definitions **
EXTERNAL xMSG2
EXTERNAL xMSG3
*** MTLmsg ******************************************************************
* Description : Message table
*****************************************************************************
ASSEMBLE
=MTLmsg
RPL
ARRY
[
"Memory Lost !?"
"Achou .."
"27B-6, 27B-6 ..."
]
*** MTLcfg ******************************************************************
* Interface : ( --> )
* Description : Attach this library at system warmstart
*****************************************************************************
ASSEMBLE
=MTLcfg
RPL
::
DOBINT MTROMID XEQSETLIB ( *Autoattach* )
;
*** MSG1 ********************************************************************
* Interface : ( --> )
* Description : Just generate an error with error message 1
*****************************************************************************
ASSEMBLE
CON(1) 8 * Tell parser 'Non algebraic' *
RPL
xNAME MSG1
::
CK0
ASSEMBLE
DOMSG MTROMID,1
RPL
ERROROUT
;
*** MSG2 ********************************************************************
* Interface : ( --> )
* Description : Just generate an error with error message 2
*****************************************************************************
ASSEMBLE
CON(1) 8
RPL
xNAME MSG2
::
CK0
ASSEMBLE
DOMSG MTROMID,2
RPL
ERROROUT
;
*** MSG3 ********************************************************************
* Interface : ( --> )
* Description : Just generate an error with error message 3
*****************************************************************************
ASSEMBLE
CON(1) 8
RPL
xNAME MSG3
::
CK0
ASSEMBLE
DOMSG MTROMID,3
RPL
ERROROUT
;